4 IFA=0THENA=1:LOAD"CHARSET*",8,1
5 IFA=1THENA=2:LOAD"ROUTI*",8,1
6 IFA=2THENA=3:LOAD"LOGO*",8,1
10 F(1)=0:F(2)=0:F(3)=15:GA=8:GOSUB3000
11 PRINT"[155][147]"CHR$(8):POKE53280,15:POKE53281,11:POKE53272,24
12 FORG=1TO4:POKE2039+G,223+G:POKE53246+G*2,24*G+102:POKE53247+G*2,210
13 POKE53286+G,0:NEXT:POKE211,4:POKE214,23:SYS58732:T=1:SI=54272
14 PRINT"[152]CHAPTERS  CONTENZ  CREDITS  QUIT":DIMT$(50),Q$(4),Q(4)
15 Q$(1)="CHAPTERS":Q$(2)="CONTENZ":Q$(3)="CREDITS":Q$(4)="QUIT":Q(1)=4:Q(2)=14
16 Q(3)=23:Q(4)=32:OPEN2,8,2,"CONFIG*,S,R":INPUT#2,A:FORG=1TOA:INPUT#2,T$(G)
17 NEXT:CLOSE2:X$=T$(1):GOSUB1000
100 Q=16384:POKE53269,255
101 SYS49152,Q,Q+800,1024:GETA$:IFA$=CHR$(13)THEN200
102 IFA$=""ANDQ<64000THENQ=Q+40
103 IFA$="[145]"ANDQ>16423THENQ=Q-40
104 IFA$=""ANDQ<62000THENQ=Q+800
105 IFA$="[157]"ANDQ>17183THENQ=Q-800
110 GOTO101
200 Z=1
201 POKE211,Q(Z):POKE214,23:SYS58732:PRINT"[155]"Q$(Z):GETA$:IFA$=CHR$(13)THEN205
202 POKE211,Q(Z):POKE214,23:SYS58732:PRINT"[152]"Q$(Z):IFA$=""ANDZ<4THENZ=Z+1
203 IFA$="[157]"ANDZ>1THENZ=Z-1
204 GOTO201
205 ONZGOTO300,400,500,600
300 POKE646,15:POKE781,23:SYS59903:Z=T
301 POKE211,1:POKE214,23:SYS58732:PRINT"TEXT[146] : ";LEFT$(T$(Z),12)
302 GETA$:IFA$=CHR$(13)THENX$=T$(Z):T=Z:GOSUB1000:GOTO100
303 IFA$="[145]"ANDZ<ATHENZ=Z+1
304 IFA$=""ANDZ>1THENZ=Z-1
305 GOTO301
400 GOSUB2000:POKE646,15:FORG=0TO22:POKE781,G:SYS59903:NEXT:PRINT""
401 A$="[212][193][194][204][197] [207][198] [195][207][206][212][197][206][218] :":FORG=1TOLEN(A$):POKE211,10+G:POKE214,2:SYS58732
402 PRINT""MID$(A$,G,1):POKESI+24,15:POKESI+5,24:POKESI+6,68:POKESI+1,29
403 POKESI,69:POKESI+4,17:FORZ=1TO50:NEXTZ:POKESI+4,0:POKESI+5,0:POKESI+6,0
404 NEXTG:FORG=1TO16:POKE211,1:POKE214,G+3:SYS58732:PRINTLEFT$(T$(G),12)
405 NEXT:FORG=32TO17STEP-1:POKE211,26:POKE214,G-13:SYS58732
406 PRINTLEFT$(T$(G),12):NEXT
407 GETA$:ON-(A$="")GOTO407:GOTO101
500 X$="INFO*":GOSUB1000:GOTO100
600 POKE646,15:POKE781,23:SYS59903:Z=T
602 POKE211,1:POKE214,23:SYS58732:PRINT"SURE ??? ";
603 GETA$:IFA$<>"Y"ANDA$<>"J"ANDA$<>"N"THEN603
604 IFA$="N"THENGOSUB2000:GOTO101
605 SYS64738
1000 POKE53265,11:POKE53269,0:SYS57812X$+"*",8,1:POKE780,0:SYS65493
1001 POKE53269,255:POKE53265,27:GOSUB2000:RETURN
2000 POKE211,.:POKE214,23:SYS58732:PRINT"[155]    [152]CHAPTERS  CONTENZ  CREDITS  QUIT
2001 [142]
3000 [153]"LOAD"[199](8):[151]53280,15:[151]53281,15:[151]53272,21:[151]788,52
3001 [153]"STOP PLACE DISC INTO DRIVE AND PRESS SPACE! "
3002 [161]A$:[145][171](A$[179][177][199](32))[137]3002:[142]